home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
BUS
/
TMCM Software and Labs.sit
/
Software for TMCM 7_95
/
Files for Lab 13
/
Sum Of Squares
< prev
next >
Wrap
Text File
|
1995-07-07
|
214b
|
12 lines
DECLARE sum
SUB SumOfSquares(top)
import sum
sum := 0
fork(top)
sum := sum + ForkNumber^2
END SUB
SumOfSquares(10)
TellUser("The sum of the squares of the first 10 integers was computed to be #sum.")